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° ’ 14- ett 13:93 3 PASRTL.SRC PASREASTR. 5 2;1 a (1) 


| 
; 1 0001 0 MODULE PASSREAD_STRIN ING ( ft aE "Read a fixed-length strin ng. : 
; ¢ b00¢ 8 “IDENT ‘File: PASREASTR.B32 Edit: $BL1002 : 
; 000 ) = | 3 
3 4 0004 1 BEGIN ; 
3 5 0005 1! | 3 
} § sie) 1 LRA RARER REE AE REA EEE EEE EEE ERE EEE | Ps 
; 1 !® $ 
$ 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY x : 
; y 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | : 
; 19 Baty : :* ALL RIGHTS RESERVED. * ; 
; \ Bolg 1 !® THIS re 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copree a ‘ 
: 1 001 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | : 
; 14 0014 1 !* INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS S$ OR E * ; 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | : 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 i ante } be TRANSFERRED. s | ; 
. '® * Pr 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
; $3 Boe) ! ‘s CORPORATION. * | 3 
P4 feel ® j ° 
5 ae $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 3 
6 62 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
a ao 0025 1 !* * | 3 
; @& 0026 1 !* * F 
: e7 QOZD7 DE ee ee eee REE REE AERA AAA RRA EERE a 
>. 0028 1! : 
; 29 0029 1 ; 
; 0030 1 !++ 3 
wee 0031 1 =! FACILITY: Pascal Language Support : 
3 32 0032 1! 3 
3 33 0033 1 ! ABSTRACT: : 
3 34 0034 1! | F 
; 3 0035 1! This module contains procedures which read a fixed-length string : 
; 0036 1! from a textfile or a string. 3 
; 37 0037 1! 3 
; 3 0038 | : ENVIRONMENT: User mode - AST reentrant | : 
: 40 9040 i AUTHOR: Steven B. Lionel, CREATION DATE: 1~April-1981 | : 
3 0042 1 ! MODIFIED BY: 3 
; 3 0043 1! : 
: 46 0044 1 ! 1-001 - Original. SBL 1-April-1981 ; 
s 65 0045 1 ' 1-002 - Use PASSSEND READ. SBL 26-May-1982 F 
;. & 0046 1 !-- 3 
; 47 0047 1 3 
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1-002 >: Declarations . ° 14-Sep-19 4 95:03:03 YPASRTL SRC IPASREASTR.B 2:1 . (2) | os 
s 69 0048 1 XSBTTL ‘Declarations’ 
; 0049 1! 
; ww 0050 1 ! PROLOGUE DEFINITIONS: 
Biome tb 
; 2¢ 0038 ! REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
; = 0118 1! 
; 57 0119 1 ! TABLE OF CONTENTS: 
; 3B Biss 1! 
oe 0121 1 
; @& b1S¢ 1 FORWARD ROUTINE . 
: 61 1 1 PASSREAD_STRING: NOVALUE, ' Read from textfile 
; 62 0124 1 PASSREADV_STRING: NOVALUE; ! Read string 
; oS 0125 +1 
3; & 0126 1! 
: 65 0127 1 ! MACROS: 
; © 0128 1! 
; 67 0129 1! NONE 
: 68 0130 1! 
3 69 0131 1 ! EQUATED SYMBOLS: 
;: 0132 1! 
cost ae 0133 1! NONE 
> we 0134 1! 
: a 0135 1 ! FIELDS: 
. . 0136 1! 
; 0137 1! NONE 
s 0138 1! 
oF ae 0139 1 ! OWN STORAGE: 
s 73 0140 1! 
; 79 0141 1! NONE 
: @ 0142 1! 


Page 3 
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PASSREAD_STRING = Read a string from textfile 14-Sep-1984 1 751 PASR P 


8 ZSBTTL ‘PASSREAD_ STRING = Read a string from textfile’ 
8 GLOBAL ROUTINE PASSREAD_STRING ( 
84 STRING: REF VECTOR C, BYTE]. ! String to read into 
85 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
86 STRING_LENGTH: WORD, ' Length of strin 
87 ERROR ! Error unwind adtress 
88 ) : NOVALUE = 
89 
90 lee 
33 ! FUNCTIONAL DESCRIPTION: 
9 This function READs a fixed-length string from the specified textfile. 
94 If the string length is less than the number of characters remaining 
95 in the current Line, onty STRING_LENGTH characters will be read, | 
ae otherwise the string will be padded with blanks. 
+ ' CALLING SEQUENCE: 
00 STRING.wt.r = PASSREAD_ STRING (PFV.mr.r, STRING_LENGTH.rwu.v 

1 C, ERROR. ja.rJ) 
3 FORMAL PARAMETERS: 

5 PFV - The Pascal File Variable (PFV) passed by reference. 

The structure of the PFV is defined in PASPFV.REQ. 
STRING_LENGTH = The Length of the string to read. 
ERROR - Optional. If specified, the address to unwind to 


in case of an error. 
IMPLICIT INPUTS: 
NONE | 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
STRING - The string read, returned as a function value by 
ae the string address passed as the first 
rocedure parameter, in accordance with the 
AX Procedure Calling Standard. 


If an error occurs and is continued by a user handler, 
the result returned is a blank string. 


SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 
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ING : Read a Zering from textfile 12-8 08- 1 3be 95:07:97 PASRTL. RCIPASREASTR.B 2;1 


BEGIN 


CAL 
CHARS_REMAINING 
FCB: REF SPASS$FCB_CONTROL_BLOCK, 
PFV : VOLATILE, 

UNWIND ACT: VOLATILE, 

ERROR_ADDR: VOLATILE: 


! Number of characters remaining in Line 
! File Control block 
Enable argument 


Enable argument 
Enable argument 


BUILTIN 
ACTUALCOUNT; ! Count of arguments 
ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


'¢ 
Get ERROR parameter, if present. 
Maal () GEQU 4 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


1+ 
Validate PFV and get PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 


1+ 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 


‘4 
Do common initialization. 


PASSSINIT_READ (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI]; FCB); 


'¢ 
Determine number of characters remaining in Line. 


CHARS_REMAINING = .FCB CFCBSA_RECORD_END] - .FCB CFCBSA_RECORD_CUR]; 
i+ 


i Select lesser of CHARS_REMAINING and STRING_LENGTH as the number of 
characters to move. 


CHARS_REMAINING = MINU (.CHARS_REMAINING, .STRING_LENGTH); 
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2 PASSREAD_STRING = Read a string from textfile 14-Sep-1984 PASR PASREASTR.B52;1 (3). 
: 196 af '¢ : 
: ed 28 Move characters to user variable and update record position. : 
: 199 0260 : 
: 200 0261 CHSCOPY (.CHARS_REMAINING, .FCB FASBSA.RECORDCURI, —*:*, ; 
> 201 0 6¢ . STRING. LENGTH, STRING 03); ; 
; O 4 63 FCB CFCBSA_RECORBD_CUR] = .FCB CFCBSA_RECORD_CUR] + .CHARS_REMAINING; : 
3; 204 0265 + 3 
; 205 0266 ! Do end-of-READ processing. ; 
; 206 0267 t- ; 
: 307 9 68 é : 
: 208 69 PAS$SSEND_READ (PFV CPFVSR_PFV], FCB CFCBS$R_FCB)); : 
B aor os 70 : 
; 210 0271 RETURN; 3 
: eli O27¢ : 
3 ate 0275 1 END; ! End of routine PASS$READ_STRING : 
-TITLE PASSREAD_STRING Read a fixed-length string : 
IDENT \1-002\ ; 
EXTRN PASS$READ_STRING | 3 
EXTRN PASS$READV_STRING 3 
~-EXTRN PASS$$IO_HANDLER ; 
-EXTRN PASSSVALIDATE_PFV : 
-EXTRN PASS$SINIT_REAB, PASSSEND_READ : 
-PSECT _PASSCODE,.NOWRT, SHR, PIC,2 : 
OOFC 00000 -ENTRY PASSREAD_STRING, Save R2,R3,R4,R5.R6,R7 : 0144 3 
5E 08 C2 00002 SUBL2 48, 3 $ 
7E D4 00005 CLRL ERROR_ADDR : 0201 : 
04 AE /7C 00007 CLROQ UNWINB_ACT : 3 
6D 0057 ~=CF DE O000A MOVAL 3$, (FP) : : 
04 6C 91 O000F CMPB (AP), #4 ; 0220 5 
04 1F 00012 BLSSU. 1 : : 
6E 10 AC DO 00014 MOVL ERROR, ERROR_ADDR 3 0222 | ; 
08 AE 08 AC DO 00018 1$: MOVL PFV, PFV_ADDR : O2e% : 
56 08 AC 00 00010 MOVL PFV ; 0250 3 
000000006 00 16 00021 JSB PASS$SVALIDATE_PFV : : 
04 AE 01 DO 00027 MOVL #1, UNWIND_ACT 3 0236 : 
56 08 AC 00 00028 MOVL v 3: 0242 ; 
000000006 09 ig 600 F JSB PASSSINIT READ : | : 
56 FO AT EC a7? C3 00035 SUBL3 <-20(FCB),~-16(FCB), CHARS_REMAINING 3 0248 | : 
50 56 DO 00038 MOVL CHARS_REMAINING, : 0255 | : 
50 Oc AC 10 90 FO 000% CMPZV #0, #16, STRING_LENGTH, RO 3 : 
50 0c AC 3C 00046 MOVZWL STRING_LENGTH, RO 3 | 3 
56 5 b0 O04A 2$: MOVL RO, CHARS REMAINING F : 
oc aC 20 EC B87 56 2C 00040 MOVCS CHARS REMAINING, a@-20(FCB), #32, - ; 0262. : 
04 @C 0054 STRING LENGTH, aSTRING aoe : 
Ec oA? 6 co 0056 ADDL2 CHARS_REMAINING, -20(FCB) 3 0263 | : 
56 08 ac OD oper MOVL PFV 3; 0269 ; 
000000006 00 16 0005E JSB PAS$SEND_READ ; : 
os ope RET 3 Ogre | 3 
0000 00065 3$: «WORD Save nothing : 0 OV) 3 


; Routine Size: 136 bytes, Routine Base: _PASSCODE + 0000 
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1-002 PASSREAD STRING = Read a string from textfile 14-Sep-1984 1 1:51 PASRTL.SRC PASREASTR. 5 2:1 (3). 
28 8 A 4h 67 MOVL B(AP), RO 3 
0 4 A B MOVL 4(RO), R : 
FG COA F F PUSHAB ERROR_ADDR ; 
FB OA F PUSHAB UNWIND ACT ; 
FC AO OF 7 PUSHAB PFV_ADDR ; 
9 DD 7 PUSHL #3 ; 
E DD QOO7A PUSHL SP : | 
43 04 ag D 0007C MOvVa 4(AP), =(SP) : 
000000006 0 03 FB 00080 CALLS #3, PA $$$10. HANDLER : 
04 00087 RET j | 


; siz pore 1 
; 216 0275 1 !<BLF/PAGE> 


EAD_STRING Read a fixed-length string Jo~300~ 1386 05:03:03 AX-11 Oi legac ptt met Page ?| 
PASSREADV_STRING - Read string from string 14-Sep-1984 12:51:51 PASRTL.SRC JPASREASTR.B52;1 (4). 


ZSBTTL ee a tf Bd aw - Read string from string’ 


~~ s —FD 


; 76 #1 | 
; $ 77 1 GLOBAL ROUTINE PASSREADV_STRING ( 

3 8 a8 1 STRING: REF VECTOR C, BYTE) ! String to read into 

: 219 79 1 LINE DSC: REF VECTOR C, BYTE), i Line to read from 

: 0 80 1 STRING_LENGTH: WORD, ! Length of string 

; 1 3 1 ERROR ! Error unwind address 

3 ¢ ¢ 1 ) : NOVALUE = 

; 0285 1 | 
; 4 0284 1 !+4+ 

; ? 8 +H : FUNCTIONAL DESCRIPTION: 

: 7 8 Sf 1! This function READs a fixed-length string from the specified string Line. 
; 8 8 1! If the string length is less than the number of characters remaining 
; 9 0289 1! in the current Line, only STRING_LENGTH characters will be read, 
3 * 4 + ; otherwise the string will be padded with blanks. ! 
3 § ¢ 8 4 : CALLING SEQUENCE: 

3 34 0294 1! STRING.wt.r = PASSREAD_STRING (LINE_DSC.mq.r, STRING_LENGTH.rwu.v 

; 235 0295 1! [, ERROR. ja.rJ) 

; 236 f34) 1! 

; 37 0297 1 ! FORMAL PARAMETERS: 
; 238 0298 1 | 
3 @o i444 7: LINE_DSC - The string to read from, passed as a class S 

; 240 0300 1! (assumed) descriptor. fhe length and pointer | 
3 oe tH : are updated to reflect the unread string. 

3 208 0308 } STRING_LENGTH = The Length of the string to read. 

; 245 0305 1! ERROR - Optional. If specified, the address to unwind to | 
; 246 0306 1! in case of an error. 

: 267 9307 1! 
; 248 0308 1 ! IMPLICIT INPUTS: 

3: 249 0309 1! 

; 250 0310 1! NONE 

; 251 0311 1! 

; $26 O31g 1 ! IMPLICIT OUTPUTS: 

; 25 0313 1! 

: 334 0314 1 | NONE | 
; 255 0315 1! 

; 256 Q316 1 | ROUTINE VALUE: 

3 gor 0317 1! : 
3; ee 0318 1! The value of the string read. 

g $28 tah 1! 

; 60 20 1 ! SIDE EFFECTS: 
2 
3 65 0393 1} 
3 bsSe : } SIGNALLED ERRORS: | 
: 0336 1 i See PASSREAD_STRING | 
: 03 1! 
3 328 1! 

: ; 9 1 

; 0 

; 331 

; 0332 


Ropofonononorenony 
NASSSLEAF 
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tt PASSREADV STRINGS Read string from string 12286871382 95:07:93 PASRTL SRESPASREASTR B92: 1 : (aS 
; 273 3 PFV: SPASSPFV_FILE_VARIABLE, ! Pascal File Variable 
: 274 4 RESULT ' Result value 
et 5 ARG_LIST: VECTOR (4, LONG), ! Argument List 
: ee . PFV_ADDR: VOLATILE, ! Enable argument 
: ef 0 UNWIND_ACT: VOLATILE. ! Enable argument 
; A. 8 . ERROR_ADDR: VOLATILE; ! Enable argument | 
; 80 0340 BUILTIN 
; 3] 4 ‘] ACTUALCOUNT; ! Count of arguments 
: 588 038 ENABLE | 
3 ae 8 rt) PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; 286 0 ré] 4 | 
; 287 034 ' Get ERROR parameter, if present. 
; 288 0348 i- 
; 289 0349 
: 590 0350 IF ACTUALCOUNT () GEQU 3 | 
> 291 0351 THEN 
: 36 B326 § ERROR_ADDR = .ERROR; ! Set unwind address 
; $34 0354 2 PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address | 
> 295 0355 $ 
: 2% 0356 '¢ 
; 297 0357 i Set up ARG_LIST. 
; 298 0358 le | 
3 $38 0359 
; 300 0360 ARG_LIST (0) = 3; ! Three arguments 
; 301 0361 ARG_LIST (1) = STRING (0); ! Destination string address 
: 30 O08 ARG_LIST $3 = PFV CPFV$R_PFVI; ! Address of PFV 
; 036 ARG_LIST (3) = .STRING_LENGTH; ! String Length 
; soe 0364 
3: 305 0365 2 '¢ 
: 306 0366 2 ' Call PASS$S$DO_READV to do the work, giving it the address of 
; 307 0367 2 ! PASSREAD_STRING to call. 
: 308 0368 2 !- 
: 309 0369 2 
; 310 0370 2 PAS$S$DO_READV (PFV CPFVS$R_PFVJ, LINE_DSC COJ, ARG_LIST, PASSREAD_STRING); | 
; HE O37¢ é RETURN; 
: 31 0373 2 
; «314 0374 #1 END; ! End of routine PASSREADV_STRING | 
| 
EXTRN PAS$$DO_READV | 
oor 00000 ENTRY PASSREADV_STRING, Save R2,R3,R4,R6 ; 0277 
5E 38 C Boone SUBL2 #40, SP ; 
E b4 9000 CLRL ERROR_ADDR ; 0330 
0 AE C 00007 CLRQ UNWIND_ACT ; 
6D 003A CF ODE QOO0A MOVAL 2$, (FP) : 
03 6C 91 OO0OF CMPB_ (AP), #3 ; 0350 
04 iF 00012 BLSSU-'1$ 3 
6E 10 AC 44 0014 MOVL ERROR, ERROR_ADDR : 0352 
08 AE 1C AE ’ 0018 1$: MOVAB PEFV, PFV_ADDR > 0354 
C AE 03 09 0001D MOVL #3, ARG_CIST : 0360 
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10 AE 04 AC 00 00024 MOVL STRING ARG LIST+4 
14 AE C AE 9E 00026 MOVAB PFV, AR 
18 AE 0¢ ac 3¢€ 000 : MOVZWL STRING LENGTH, ARG_LIST+12 
54 FF4G «6CF OE 000 MOVAB PASSRERD STRING, R& 
53 OC AE 9E 99 3 MOVAB ARG_LIST> R3 
28 1¢ AE 3 0 MOVAB  PFV Re 
5 08 AC DD 00030 MOVL LINE_D 
000000006 00 \6 0 41 38 bASsSbO renby 
0000 0048 2$: «WORD geyser at ieee 
50 08 ac D0 004A MOVL RO 
50 04 A) p OO4E MOVL 4(RO). RO 
D4 AO 9F 00052 PUSHAB ERROR ADDR 
D8 AO 9F 00055 PUSHAB UNWIND ACT 
DC AO 9F 00058 PUSHAB PFV_ADBR 
93 DD 00058 PUSHL 
E DD 0005p PUSHL SP 
7E 04 AC 7D 0005F MOV. 4(AP), 
000000006 00 03 FB 00063 CALLS #3, PASSS10- HANDLER 
04 0006A RET 


; Routine Size: 107 bytes, Routine Base: _PASSCODE + 0088 


1 
1 !<BLF/PAGE> 


kK 13 


Lines/CPU Min: 

Lexemes/CPU-Min: 116 
ry Used: 68 pages 

Compilation Complete 


phe Heer 00:24.0 
35 ; 
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1-002 PASSREADV STRING = Read string from string 14- =Sep- 9 PASRTL.SRCJPASREASTR.B32;1 (5) 
H 18 0377 1 END ! End of module PASS$SREAD_STRING : 
: 313 0378 1 - : 
; 320 79 0 ELUDOM ; 
; PSECT SUMMARY : 
: Name Bytes Attributes ; 
PASSCODE 243 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; Library Statistics ; 
Be eee eee eS a ees Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:00.9 ; 
3 ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 90 21 33 00:00.4 : 
; COMMAND QUALIFIERS ; 
: BLISS/CHECK®CFIELD. INITIAL OPTIMIZE) /MOTRACE/L1S#L 158: PASREASTR/OBJ=0BJ$ :PASREASTR MSRC$:PASREASTR/UPDATE=(ENH$:PASREASTR ; 
Sizes 243 code + 0 data bytes ; 
un Time 0: : 


PMENT CORPORATION 
AND PROPRIETARY 
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